perm filename TEST[LSP,SYS] blob sn#010451 filedate 1973-07-03 generic text, type T, neo UTF8
00100	(DE TEST () (PROG (TTYA TTYB)
00200		(PRINT @TTYA?)
00300		(EVAL (LIST @INPUT @A (SETQ TTYA (READ))))
00400		(PRINT @TTYB?)
00500		(EVAL (LIST @INPUT @B (SETQ TTYB (READ))))
00600	LOOP 	(INC @ A NIL)
00700		(OUTC (EVAL (LIST @OUTPUT @A TTYA)) T)
00800		(PRINT (READ))
00900		(OUTC (EVAL (LIST @OUTPUT @B TTYB)) T)
01000		(INC @B NIL)
01100		(PRINT (READ))
01200		(GO LOOP)))